home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
New Star Software Collection
/
NSS_Collection.iso
/
3-170 dbase 10 for windows
/
1.ima
/
SAMPLES.PAK
/
ANIMALS.PRG
< prev
next >
Wrap
Text File
|
1993-07-26
|
3KB
|
121 lines
*
* Program: Animals.Prg
*
* Revision: dBASE for Windows Alpha, x66
*
* Copyright (c) 1993 Borland International. All Rights Reserved.
*
SET TALK OFF
SET SAFETY OFF
SET ESCAPE OFF
CLEAR
CLEAR ALL
USE Animals
NumRecords = RECCOUNT()
GOTO TOP
* Define fonts
DEFINE FONT BigFont HEIGHT 20 WIDTH 22 TYPE "Roman"
DEFINE FONT Modern HEIGHT 11 WIDTH 7 TYPE "Arial" BOLD
* Define main window and it's objects
DEFINE WINDOW WinAnimal OF APPLICATION FROM 3,2 TO 25,70;
TITLE 'Animals of the World';
COLOR W+/B;
SIZEABLE
DEFINE TEXT Heading OF WinAnimal AT 1,7 ;
PROMPT "Animals of the World" ;
FONT BigFont ;
COLOR G+/R
DEFINE PUSHBUTTON Next OF WinAnimal AT 14,22 ;
PROMPT ' Next Animal '
DEFINE PUSHBUTTON Exit OF WinAnimal AT 17,17 ;
PROMPT ' Exit '
DEFINE PUSHBUTTON Prev OF WinAnimal AT 14,3 ;
PROMPT 'Previous Animal'
DEFINE IMAGE PictAnimal OF WinAnimal ;
FROM 6,42 TO 19,67 MEMO BMP
ON SELECTION WINDOW WinAnimal DO OnSelAnimal
* Display desciptive text
DO StartText
DO DisplayText
* Activate the modal window
READMODAL('WinAnimal')
* Reset and go home
CLEAR ALL
RETURN
********************************************************
PROCEDURE OnSelAnimal
WinControl=ACTIVECONTROL()
DO CASE
CASE WinControl="NEXT"
IF RECNO() = NumRecords
?? CHR(7)
ELSE
SKIP
ENDIF
DO DisplayText
CASE WinControl="PREV"
IF RECNO() = 1
?? CHR(7)
ELSE
SKIP -1
ENDIF
DO DisplayText
CASE WinControl="EXIT"
DEACTIVATE WINDOW WinAnimal
ENDCASE
RETURN
PROCEDURE StartText
DEFINE box BoxAnimal OF WinAnimal FROM 5,3 TO 11,40 ;
TITLE "Description"
DEFINE TEXT Name OF WinAnimal AT 7,4 ;
PROMPT "Animal Name: " ;
FONT Modern ;
COLOR BR+/B
DEFINE TEXT Height OF WinAnimal AT 8,4 ;
PROMPT "Height: " ;
FONT Modern ;
COLOR BR+/B
DEFINE TEXT Weight OF WinAnimal AT 9,4 ;
PROMPT "Weight: " ;
FONT Modern ;
COLOR BR+/B
DEFINE TEXT Found OF WinAnimal AT 10,4;
PROMPT "Found in: " ;
FONT Modern ;
COLOR BR+/B
RETURN
PROCEDURE DisplayText
DEFINE TEXT Fname OF WinAnimal AT 7,17 ;
PROMPT Animals->Name ;
COLOR BG+/B
DEFINE TEXT Fsize OF WinAnimal AT 8,17 ;
PROMPT LTRIM(STR(Animals->Size)) + SPACE(5);
COLOR BG+/B
DEFINE TEXT Fweight OF WinAnimal AT 9,17 ;
PROMPT LTRIM(STR(Animals->Weight,5)) + SPACE(5) ;
COLOR BG+/B
DEFINE TEXT Farea OF WinAnimal AT 10,17 ;
PROMPT Animals->Area ;
COLOR BG+/B
RETURN
* EOF ANIMALS.PRG